home *** CD-ROM | disk | FTP | other *** search
/ Freelog 117 / FreelogNo117-OctobreNovembre2013.iso / Programmation / jedit / jedit5.1.0install.exe / {app} / macros / Emacs / Emacs_Kill_Region.bsh < prev    next >
Text File  |  2013-07-28  |  758b  |  28 lines
  1. /**
  2.  * Emulate GNU Emacs's "kill-region" capability (normally bound to Ctrl-W),
  3.  * which kills the text between the caret and the mark, copying it to the kill
  4.  * ring. This version is slightly different: If there's any selected text, it
  5.  * kills and copies that text. Otherwise, it selects the text between the
  6.  * caret and the mark, and kills and copies that.
  7.  *
  8.  * Does NOT use jEdit markers.
  9.  */
  10. source (MiscUtilities.constructPath(dirname(scriptPath), "EmacsUtil.bsh"));
  11.  
  12. void emacsKillRegion()
  13. {
  14.     selection = getKillRegion();
  15.     if (selection == null)
  16.         beep();
  17.  
  18.     else
  19.     {
  20.         addToClipboardAndHistory (selection);
  21.         textArea.replaceSelection ("");
  22.         textArea.removeFromSelection (selection);
  23.     }
  24. }
  25.  
  26. emacsKillRegion();
  27.  
  28.